function ram = ramean(cellra)
ram = nanmean(reshape(cellra,size(cellra,1),size(cellra,2),size(cellra,3)*size(cellra,4)),3);
